object FClientes_Lcto: TFClientes_Lcto
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'Lan'#231'amentos'
  ClientHeight = 487
  ClientWidth = 882
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 882
    Height = 75
    Align = alTop
    BevelInner = bvSpace
    TabOrder = 0
    object Label1: TLabel
      Left = 85
      Top = 33
      Width = 41
      Height = 13
      Caption = 'Hist'#243'rico'
    end
    object Label2: TLabel
      Left = 545
      Top = 33
      Width = 24
      Height = 13
      Caption = 'Valor'
    end
    object Label3: TLabel
      Left = 6
      Top = 33
      Width = 65
      Height = 13
      Caption = 'Data do Lcto.'
    end
    object Panel4: TPanel
      Left = 2
      Top = 2
      Width = 878
      Height = 24
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 5
      object DBText1: TDBText
        Left = 2
        Top = 2
        Width = 874
        Height = 20
        Align = alClient
        Alignment = taCenter
        DataField = 'Nome'
        DataSource = FPrincipal.dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitWidth = 477
        ExplicitHeight = 23
      end
    end
    object EdHistorico: TEdit
      Left = 85
      Top = 48
      Width = 324
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 0
    end
    object RadioGroup1: TRadioGroup
      Left = 414
      Top = 37
      Width = 125
      Height = 32
      Caption = 'Tipo'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Cr'#233'dito'
        'D'#233'bito')
      TabOrder = 1
    end
    object EdValor: TEdit
      Left = 545
      Top = 48
      Width = 89
      Height = 21
      TabOrder = 2
      OnExit = EdValorExit
      OnKeyPress = EdValorKeyPress
    end
    object BitBtn1: TBitBtn
      Left = 695
      Top = 43
      Width = 49
      Height = 26
      Hint = 'Excluir Lan'#231'amento'
      DoubleBuffered = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FF0005B70005B7FF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FF0005B7
        0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005
        B70005B7FF00FFFF00FFFF00FF0005B70005B60005B70005B7FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FF
        0006D70005BA0005B70005B7FF00FFFF00FFFF00FFFF00FF0005B70005B7FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B70005B6FF
        00FF0005B60005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FF0005B60006C70006C70006CE0005B4FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006C100
        05C10006DAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FF0005B60006D70006CE0006DA0006E9FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006E50006DA0006D3FF
        00FFFF00FF0006E50006EFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FF0006F80006DA0006EFFF00FFFF00FFFF00FFFF00FF0006F80006F6FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F60006F8FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF0006F60006F6FF00FFFF00FFFF00FFFF00FF0006F6
        0006F60006F6FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FF0006F6FF00FFFF00FF0006F60006F60006F6FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F6
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      ParentDoubleBuffered = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 640
      Top = 43
      Width = 49
      Height = 26
      Hint = 'Efeutuar Lan'#231'amento'
      DoubleBuffered = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08
        780E08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A70DA31B08780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A70EAA1D08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A70EA81C08780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A710AA1F08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        08780E08780E08780E08780E08780E76F9A719B02C08780E08780E08780E0878
        0E08780EFF00FFFF00FFFF00FF08780E76F9A755E38349DA7242D36837C8562A
        B94322B3371CB23016AF270FA81D0EA91B0DA21B08780EFF00FFFF00FF08780E
        76F9A776F9A776F9A776F9A776F9A776F9A72CBB4876F9A776F9A776F9A776F9
        A776F9A708780EFF00FFFF00FFFF00FF08780E08780E08780E08780E08780E76
        F9A73CCB5D08780E08780E08780E08780E08780EFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A749D97208780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A755E28208780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A763F09708780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A776F9A708780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FF08780E08780EFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      ParentDoubleBuffered = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitBtn2Click
    end
    object EdData: TEdit
      Left = 6
      Top = 48
      Width = 74
      Height = 21
      TabOrder = 6
      OnKeyPress = EdDataKeyPress
    end
  end
  object Panel3: TPanel
    Left = 441
    Top = 75
    Width = 6
    Height = 335
    Align = alClient
    BevelInner = bvSpace
    BevelKind = bkFlat
    BevelOuter = bvLowered
    TabOrder = 1
  end
  object Panel9: TPanel
    Left = 0
    Top = 410
    Width = 882
    Height = 77
    Align = alBottom
    BevelInner = bvSpace
    TabOrder = 2
    object Label7: TLabel
      Left = 7
      Top = 9
      Width = 110
      Height = 16
      Alignment = taRightJustify
      Caption = 'Total de Cr'#233'ditos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 501
      Top = 9
      Width = 105
      Height = 16
      Alignment = taRightJustify
      Caption = 'Total de D'#233'bitos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 342
      Top = 32
      Width = 69
      Height = 16
      Caption = 'Total Geral'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel10: TPanel
      Left = 120
      Top = 8
      Width = 139
      Height = 20
      BevelInner = bvLowered
      TabOrder = 0
      object DBText5: TDBText
        Left = 2
        Top = 2
        Width = 135
        Height = 16
        Align = alClient
        Alignment = taRightJustify
        DataField = 'TotalCredito'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitLeft = 10
      end
    end
    object Panel11: TPanel
      Left = 610
      Top = 7
      Width = 139
      Height = 20
      BevelInner = bvLowered
      TabOrder = 1
      object DBText6: TDBText
        Left = 2
        Top = 2
        Width = 135
        Height = 16
        Align = alClient
        Alignment = taRightJustify
        DataField = 'TOTALDEBITO'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitLeft = 4
        ExplicitTop = 1
        ExplicitHeight = 20
      end
    end
    object Panel12: TPanel
      Left = 303
      Top = 48
      Width = 147
      Height = 20
      BevelInner = bvLowered
      TabOrder = 2
      object DBText7: TDBText
        Left = 2
        Top = 2
        Width = 143
        Height = 16
        Align = alClient
        Alignment = taRightJustify
        DataField = 'Total'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitWidth = 477
        ExplicitHeight = 23
      end
    end
    object BitBtn3: TBitBtn
      Left = 666
      Top = 41
      Width = 81
      Height = 28
      Caption = 'Sair'
      DoubleBuffered = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FF9A6666693334FF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9A66669A6666B96666BB
        6868693334FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        9A66669A6666C66A6BD06A6BD26869C368696933349A66669A66669A66669A66
        669A66669A6666FF00FFFF00FFFF00FF9A6666DE7374D77071D56F70D56D6EC7
        6A6D693334FEA2A3FCAFB0FABCBDF9C5C6F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666E07778DB7576DA7475DA7273CC6E7169333439C56525CF6329CC6319CB
        5BF9C5C69A6666FF00FFFF00FFFF00FF9A6666E57D7EE07A7BDF797ADF7778D0
        727569333442C46830CD6733CB6724CB60F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666EA8283E57F80E37D7EE68081D374766933343DC26429CB632FCA6420CA
        5EF9C5C69A6666FF00FFFF00FFFF00FF9A6666F08788E98182EC9697FBDDDED8
        888A693334B8E1AC6BDC895DD58046D473F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666F58C8DEE8687F0999AFDDCDDDA888A693334FFF5D8FFFFE0FFFFDEECFD
        D4F9C5C69A6666FF00FFFF00FFFF00FF9A6666FA9192F48E8FF28B8CF48C8DDC
        7F80693334FDF3D4FFFFDFFFFFDDFFFFE0F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666FE9798F99394F89293F99092E08585693334FDF3D4FFFFDFFFFFDDFFFF
        DFF9C5C69A6666FF00FFFF00FFFF00FF9A6666FF9B9CFD9798FC9697FE9798E3
        8889693334FDF3D4FFFFDFFFFFDDFFFFDFF9C5C69A6666FF00FFFF00FFFF00FF
        9A6666FF9FA0FF9A9BFF999AFF9A9BE78C8D693334FDF3D4FFFFDFFFFFDDFFFF
        DFF9C5C69A6666FF00FFFF00FFFF00FF9A66669A6666E98E8FFE999AFF9D9EEB
        8F90693334FBF0D2FDFCDCFDFCDAFDFCDCF9C5C69A6666FF00FFFF00FFFF00FF
        FF00FFFF00FF9A6666B07172D78687DA88886933349A66669A66669A66669A66
        669A66669A6666FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9A66669A
        6666693334FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn4Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 75
    Width = 441
    Height = 335
    Align = alLeft
    DataSource = dsCli_LctoCred
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -9
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnDblClick = DBGrid1DblClick
    OnEnter = DBGrid1Enter
    Columns = <
      item
        Expanded = False
        FieldName = 'DATALANCTO'
        Title.Caption = 'Data Lcto.'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HISTORICO'
        Title.Caption = 'Hist'#243'rico'
        Width = 191
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Title.Caption = 'Valor'
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CHECADO'
        Title.Caption = 'Conferido'
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 447
    Top = 75
    Width = 435
    Height = 335
    Align = alRight
    DataSource = dsCli_LctoDeb
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -9
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid2CellClick
    OnDrawColumnCell = DBGrid2DrawColumnCell
    OnDblClick = DBGrid2DblClick
    OnEnter = DBGrid2Enter
    Columns = <
      item
        Expanded = False
        FieldName = 'DATALANCTO'
        Title.Caption = 'Data Lcto.'
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HISTORICO'
        Title.Caption = 'Hist'#243'rico'
        Width = 191
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Title.Caption = 'Valor'
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CHECADO'
        Title.Caption = 'Conferido'
        Visible = True
      end>
  end
  object tbClientes: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    AfterScroll = tbClientesAfterScroll
    DeleteSQL.Strings = (
      'delete from clientes'
      'where'
      '  CODCLIENTE = :OLD_CODCLIENTE')
    InsertSQL.Strings = (
      'insert into clientes'
      '  (CODCLIENTE, TOTAL, TOTALCREDITO, TOTALDEBITO)'
      'values'
      '  (:CODCLIENTE, :TOTAL, :TOTALCREDITO, :TOTALDEBITO)')
    RefreshSQL.Strings = (
      'Select '
      '  CODCLIENTE,'
      '  TOTAL,'
      '  TOTALCREDITO,'
      '  TOTALDEBITO'
      'from clientes '
      'where'
      '  CODCLIENTE = :CODCLIENTE')
    SelectSQL.Strings = (
      'select CODCLIENTE, TOTAL, TOTALCREDITO, TOTALDEBITO'
      'from clientes'
      'where CodCliente =:PCod')
    ModifySQL.Strings = (
      'update clientes'
      'set'
      '  CODCLIENTE = :CODCLIENTE,'
      '  TOTAL = :TOTAL,'
      '  TOTALCREDITO = :TOTALCREDITO,'
      '  TOTALDEBITO = :TOTALDEBITO'
      'where'
      '  CODCLIENTE = :OLD_CODCLIENTE')
    GeneratorField.ApplyEvent = gamOnPost
    Left = 342
    Top = 370
    object tbClientesCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES.CODCLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object tbClientesTOTAL: TFloatField
      FieldName = 'TOTAL'
      Origin = 'CLIENTES.TOTAL'
      currency = True
    end
    object tbClientesTOTALCREDITO: TFloatField
      FieldName = 'TOTALCREDITO'
      Origin = 'CLIENTES.TOTALCREDITO'
      currency = True
    end
    object tbClientesTOTALDEBITO: TFloatField
      FieldName = 'TOTALDEBITO'
      Origin = 'CLIENTES.TOTALDEBITO'
      currency = True
    end
  end
  object dsClientes: TDataSource
    DataSet = tbClientes
    Left = 373
    Top = 371
  end
  object TrClientes: TIBTransaction
    DefaultDatabase = FPrincipal.DBAgecfi
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 404
    Top = 372
  end
  object tbCli_LctoCred: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    DeleteSQL.Strings = (
      'delete from Clientes_LanctoCred'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    InsertSQL.Strings = (
      'insert into Clientes_LanctoCred'
      
        '  (CODCLIENTE, CODLANCAMENTO, DATALANCTO, HISTORICO, VALOR, VERI' +
        'FICADO)'
      'values'
      
        '  (:CODCLIENTE, :CODLANCAMENTO, :DATALANCTO, :HISTORICO, :VALOR,' +
        ' :VERIFICADO)')
    RefreshSQL.Strings = (
      'Select '
      '  HISTORICO,'
      '  VALOR,'
      '  CODCLIENTE,'
      '  CODLANCAMENTO,'
      '  DATALANCTO,'
      '  VERIFICADO'
      'from Clientes_LanctoCred '
      'where'
      '  CODLANCAMENTO = :CODLANCAMENTO')
    SelectSQL.Strings = (
      
        'select Clientes_LanctoCred.*, cast ('#39#39' as varchar(1)) as Checado' +
        '  from Clientes_LanctoCred'
      'where Clientes_LanctoCred.CodCliente =:PCod'
      'order by DataLancto desc')
    ModifySQL.Strings = (
      'update Clientes_LanctoCred'
      'set'
      '  CODCLIENTE = :CODCLIENTE,'
      '  CODLANCAMENTO = :CODLANCAMENTO,'
      '  DATALANCTO = :DATALANCTO,'
      '  HISTORICO = :HISTORICO,'
      '  VALOR = :VALOR,'
      '  VERIFICADO = :VERIFICADO'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    GeneratorField.Field = 'CODLANCAMENTO'
    GeneratorField.Generator = 'GENERATOR_LANCTOCRED'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 140
    Top = 368
    object tbCli_LctoCredDATALANCTO: TDateTimeField
      FieldName = 'DATALANCTO'
      Origin = 'CLIENTES_LANCTOCRED.DATALANCTO'
    end
    object tbCli_LctoCredHISTORICO: TIBStringField
      FieldName = 'HISTORICO'
      Origin = 'CLIENTES_LANCTOCRED.HISTORICO'
      Size = 150
    end
    object tbCli_LctoCredVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'CLIENTES_LANCTOCRED.VALOR'
      currency = True
    end
    object tbCli_LctoCredCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES_LANCTOCRED.CODCLIENTE'
      Required = True
    end
    object tbCli_LctoCredCODLANCAMENTO: TIntegerField
      FieldName = 'CODLANCAMENTO'
      Origin = 'CLIENTES_LANCTOCRED.CODLANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object tbCli_LctoCredVERIFICADO: TIBStringField
      FieldName = 'VERIFICADO'
      Origin = 'CLIENTES_LANCTOCRED.VERIFICADO'
      Size = 1
    end
    object tbCli_LctoCredCHECADO: TIBStringField
      FieldName = 'CHECADO'
      ProviderFlags = []
      Size = 1
    end
  end
  object dsCli_LctoCred: TDataSource
    DataSet = tbCli_LctoCred
    Left = 172
    Top = 369
  end
  object tbCli_LctoDeb: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    DeleteSQL.Strings = (
      'delete from CLIENTES_LANCTODEB'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    InsertSQL.Strings = (
      'insert into CLIENTES_LANCTODEB'
      
        '  (CODCLIENTE, CODLANCAMENTO, DATALANCTO, HISTORICO, VALOR, VERI' +
        'FICADO)'
      'values'
      
        '  (:CODCLIENTE, :CODLANCAMENTO, :DATALANCTO, :HISTORICO, :VALOR,' +
        ' :VERIFICADO)')
    RefreshSQL.Strings = (
      'Select '
      '  HISTORICO,'
      '  VALOR,'
      '  CODCLIENTE,'
      '  CODLANCAMENTO,'
      '  DATALANCTO,'
      '  VERIFICADO'
      'from CLIENTES_LANCTODEB '
      'where'
      '  CODLANCAMENTO = :CODLANCAMENTO')
    SelectSQL.Strings = (
      'select CLIENTES_LANCTODEB.*, cast ('#39#39' as varchar(1)) as Checado '
      'from CLIENTES_LANCTODEB'
      'where CLIENTES_LANCTODEB.CodCliente =:PCod'
      'order by DataLancto desc')
    ModifySQL.Strings = (
      'update CLIENTES_LANCTODEB'
      'set'
      '  CODCLIENTE = :CODCLIENTE,'
      '  CODLANCAMENTO = :CODLANCAMENTO,'
      '  DATALANCTO = :DATALANCTO,'
      '  HISTORICO = :HISTORICO,'
      '  VALOR = :VALOR,'
      '  VERIFICADO = :VERIFICADO'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    GeneratorField.Field = 'CODLANCAMENTO'
    GeneratorField.Generator = 'GENERATOR_LANCTODEB'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 548
    Top = 368
    object tbCli_LctoDebHISTORICO: TIBStringField
      FieldName = 'HISTORICO'
      Origin = 'CLIENTES_LANCTODEB.HISTORICO'
      Size = 150
    end
    object tbCli_LctoDebVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'CLIENTES_LANCTODEB.VALOR'
      currency = True
    end
    object tbCli_LctoDebCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES_LANCTODEB.CODCLIENTE'
      Required = True
    end
    object tbCli_LctoDebCODLANCAMENTO: TIntegerField
      FieldName = 'CODLANCAMENTO'
      Origin = 'CLIENTES_LANCTODEB.CODLANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object tbCli_LctoDebDATALANCTO: TDateTimeField
      FieldName = 'DATALANCTO'
      Origin = 'CLIENTES_LANCTODEB.DATALANCTO'
    end
    object tbCli_LctoDebVERIFICADO: TIBStringField
      FieldName = 'VERIFICADO'
      Origin = 'CLIENTES_LANCTODEB.VERIFICADO'
      Size = 1
    end
    object tbCli_LctoDebCHECADO: TIBStringField
      FieldName = 'CHECADO'
      ProviderFlags = []
      Size = 1
    end
  end
  object dsCli_LctoDeb: TDataSource
    DataSet = tbCli_LctoDeb
    Left = 580
    Top = 369
  end
  object ImageList1: TImageList
    Left = 240
    Top = 360
    Bitmap = {
      494C010102000400140010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00E2EFF100E2EF
      F100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EF
      F100E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00E2EFF100E2EF
      F100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EFF100E2EF
      F100E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF000000000000000000FFFFFF00000000000000000000000000FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF0000000000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC00646F7100646F
      7100646F7100646F7100646F7100646F7100646F7100646F7100646F7100646F
      7100E2EFF100FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC00646F7100646F
      7100646F7100646F7100646F7100646F7100646F7100646F7100646F7100646F
      7100E2EFF100FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF0099A8AC0099A8AC0099A8
      AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8
      AC0099A8AC00FFFFFF00FFFFFF00FFFFFF00FFFFFF0099A8AC0099A8AC0099A8
      AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8AC0099A8
      AC0099A8AC00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000}
  end
end
